home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / me31111 / ue311cmd.zoo / cmd / tex.rc < prev    next >
Encoding:
Text File  |  1991-09-18  |  1.3 KB  |  78 lines
  1. ;        TeX
  2. ;        Schaltet TeX-Modus ein
  3. ;
  4. store-procedure sharps
  5.     insert-string "{\ss}"
  6. !endm
  7.  
  8. store-procedure ae
  9.     insert-string &cat &cat "{\" &chr 34 "a}"
  10. !endm
  11.  
  12. store-procedure oe
  13.     insert-string &cat &cat "{\" &chr 34 "o}"
  14. !endm
  15.  
  16. store-procedure ue
  17.     insert-string &cat &cat "{\" &chr 34 "u}"
  18. !endm
  19.  
  20. store-procedure Ae
  21.     insert-string &cat &cat "{\" &chr 34 "A}"
  22. !endm
  23.  
  24. store-procedure Oe
  25.     insert-string &cat &cat "{\" &chr 34 "O}"
  26. !endm
  27.  
  28. store-procedure Ue
  29.     insert-string &cat &cat "{\" &chr 34 "U}"
  30. !endm
  31.  
  32. store-procedure tex
  33.     set %rctmpt $discmd
  34.     set $discmd FALSE
  35. !force    unbind-key ß
  36.     macro-to-key sharps ß
  37.     macro-to-key ae ä
  38.     macro-to-key oe ö
  39.     macro-to-key ue ü
  40.     macro-to-key Ae Ä
  41.     macro-to-key Oe Ö
  42.     macro-to-key Ue Ü
  43.     set $discmd %rctmpt
  44. !endm
  45.  
  46. store-procedure untex
  47.     set %rctmpt $discmd
  48.     set $discmd FALSE
  49. !force    unbind-key ß
  50. ;    bind-to-key execute-macro-31    ß
  51. !force    unbind-key ä
  52. !force    unbind-key ö
  53. !force    unbind-key ü
  54. !force    unbind-key Ä
  55. !force    unbind-key Ö
  56. !force    unbind-key Ü
  57.     set $discmd %rctmpt
  58. !endm
  59.  
  60. 30    store-macro
  61.     run untex
  62. !endm
  63.  
  64. 31  store-macro
  65.        set %rctmp &sin $cfname "."
  66.     !if &equ %rctmp 0
  67.         !return
  68.     !endif
  69.     set %rctmp &mid $cfname &add %rctmp 1 5
  70.     !if &seq %rctmp "tex"
  71.         run tex
  72.     !endif
  73. !endm
  74.  
  75.     set $exbhook execute-macro-30
  76.     set $bufhook execute-macro-31
  77.     add-mode "wrap"
  78.